home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / amirc_olm / inetolm.amirx next >
Text File  |  1996-05-03  |  971b  |  34 lines
  1. /* 
  2.    Simple arexx-script to send InetOlm's through amirc
  3.  
  4.    Install: get and Install InetOLM from Aminet (comm/tcp)
  5.    Make an alias: olm = /rx inetolm %p
  6.  
  7.    USAGE: Select nick in "userlist" then write
  8.    /OLM Message to be sent
  9.    No quotes are needed, everything will be sent to the selected nick.
  10.  
  11.    You can use ' but not " in msgs... (for the moment).
  12.  
  13.    After the message has been sent, you will ne notified about
  14.    what message was sent and to whom.
  15.  
  16.    Programming: ein/end, email me for any reason, 
  17.                                 pontus.sjostrom@mailbox.swipnet.se
  18.  
  19.    Additional programming: steiner/SiS 
  20.    
  21.    I take all responsibility for the damage this program may cause! :) NOT!
  22. */
  23.  
  24. parse arg msg
  25. options results
  26. getselecteduser;nick=result
  27. userhost nick;nickhost=result
  28. parse var nickhost user'@'host;host=trim(host)
  29. getmynick;mynick=result
  30. address command 'Amitcp:bin/inetolm 'host' "'msg '"'
  31. 'echo sending: 'msg
  32. 'echo to: 'nick' ('host')'
  33. exit
  34.